home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / macsyma.arj / MACSDEMO.EXE / RADCAN.OUT < prev    next >
Text File  |  1993-09-13  |  1KB  |  33 lines
  1.  
  2. (c1) /*
  3.           DEMONSTRATION OF RADCAN
  4. */
  5. (%e^((y+x)/2)+%e^(y+x))/%e^((y+x)/2);
  6. |$label(0,15,Times New Roman,$(d1$))$sup($e(),$in( - )$q(y$in( + )x,2))$hinge()$in( )$open($()$sup($e(),$q(y$in( + )x,2))$hinge()$in( + )$sup($e(),y$in( + )x)$close($))
  7.  
  8. (c2) radcan(%);
  9. |$label(0,15,Times New Roman,$(d2$))$sup($e(),$q(y$in( + )x,2))$hinge()$in( + )1
  10.  
  11. (c3) (x^(1/5)+x)/x^(1/6);
  12. |$label(0,15,Times New Roman,$(d3$))$q(x$in( + )$sup(x,1$in(/)5),$sup(x,1$in(/)6))
  13.  
  14. (c4) radcan(%);
  15. |$label(0,15,Times New Roman,$(d4$))$sup(x,5$in(/)6)$hinge()$in( + )$sup(x,1$in(/)30)
  16.  
  17. (c5) assume(x+y>0)$
  18.  
  19. (c6) (x^2+2*x*y+y^2)^(1/2)/(x+y);
  20. |$label(0,15,Times New Roman,$(d6$))$q($sqrt($sup(y,2)$in( + )2$in( )x$in( )y$in( + )$sup(x,2)),y$in( + )x)
  21.  
  22. (c7) radcan(%);
  23. |$label(0,15,Times New Roman,$(d7$))1
  24.  
  25. (c8) log(x^2+6*x+9)/log(x+3);
  26. |$label(0,15,Times New Roman,$(d8$))$q(log$paren($sup(x,2)$in( + )6$in( )x$in( + )9),log$paren(x$in( + )3))
  27.  
  28. (c9) radcan(%);
  29. |$label(0,15,Times New Roman,$(d9$))2
  30.  
  31. (c10) /* Clean up */
  32. forget(x+y>0)$
  33.